unit FormAddWorker;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, FrameMainEdit, FrameAddWorker;

type
    TfrmAddWorker = class(TForm)
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    public
        Frame: TfrmeMainEdit;
        { Public declarations }
        constructor Create(AOwner: TComponent; aWorkerId: Integer); reintroduce;
        function GetCloseMode: byte;
    end;

implementation

{$R *.dfm}

{ TfrmAddWorker }

constructor TfrmAddWorker.Create(AOwner: TComponent; aWorkerId: Integer);
begin
    inherited Create(AOwner);
    ClientHeight := 317;
    Frame := TfrmeAddWorker.Create(AOwner, aWorkerId);
    Frame.Parent := self;
end;

procedure TfrmAddWorker.FormCloseQuery(Sender: TObject;
    var CanClose: Boolean);
begin
    CanClose := Frame.CloseQuery;
end;

function TfrmAddWorker.GetCloseMode: byte;
begin
    Result := Frame.GetCloseMode;
end;

end.

